\hypertarget{sgrid3d_8f90}{
\section{sgrid3d.f90 File Reference}
\label{sgrid3d_8f90}\index{sgrid3d.f90@{sgrid3d.f90}}
}
\subsection*{Functions/Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{sgrid3d_8f90_a72497fe2d03542f2d79066f7e16b22a6}{adaptw} (nxp, nyp, nzp, i1, i2, j1, j2, k1, k2, toroid, strait, rmaj, x, y, z, wgrid, w\_\-soln)
\item 
subroutine \hyperlink{sgrid3d_8f90_aac610cae63fd4729e3098a6253d0dfee}{contras} (iwid, jwid, kwid, ncells, ijkcell, x, y, z, tsix, tsiy, tsiz, etax, etay, etaz, nux, nuy, nuz)
\item 
subroutine \hyperlink{sgrid3d_8f90_aa8de6bbd7d082943b459674adae272ee}{gridsolv} (x, y, z, w, tsix, tsiy, tsiz, etax, etay, etaz, nux, nuy, nuz, iwid, jwid, kwid, ijkcell, ncells, dx1, dx2, dx3)
\item 
subroutine \hyperlink{sgrid3d_8f90_a8ebdeb2f9c494337fab4bb965117a627}{meshgen} (nxp, nyp, nzp, x, y, z, w, w\_\-soln, vol, dt, taug, numit, ax, ay, az, bx, by, bz, cx, cy, cz, lama, lamb, lamc, dx1, dx2, dx3, delta, psi, tsix, tsiy, tsiz, etax, etay, etaz, nux, nuy, nuz, divaa1, divbb2, divcc3, iwid, jwid, kwid, ijkcell, istep, iota, periodic, toroid, strait, rmaj, rwall, bzi, q0, cdlt, sdlt, dz)
\item 
subroutine \hyperlink{sgrid3d_8f90_a9fd09de48fb71b74481b7f4e7815383e}{torusw} (nxp, nyp, nzp, i1, i2, j1, j2, k1, k2, toroid, strait, rmaj, x, y, z, wgrid)
\end{DoxyCompactItemize}


\subsection{Function Documentation}
\hypertarget{sgrid3d_8f90_a72497fe2d03542f2d79066f7e16b22a6}{
\index{sgrid3d.f90@{sgrid3d.f90}!adaptw@{adaptw}}
\index{adaptw@{adaptw}!sgrid3d.f90@{sgrid3d.f90}}
\subsubsection[{adaptw}]{\setlength{\rightskip}{0pt plus 5cm}subroutine adaptw (
\begin{DoxyParamCaption}
\item[{integer,intent(in)}]{ nxp, }
\item[{integer,intent(in)}]{ nyp, }
\item[{integer}]{ nzp, }
\item[{integer,intent(in)}]{ i1, }
\item[{integer,intent(in)}]{ i2, }
\item[{integer,intent(in)}]{ j1, }
\item[{integer,intent(in)}]{ j2, }
\item[{integer,intent(in)}]{ k1, }
\item[{integer,intent(in)}]{ k2, }
\item[{real(double),intent(in)}]{ toroid, }
\item[{real(double),intent(in)}]{ strait, }
\item[{real(double),intent(in)}]{ rmaj, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ x, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ y, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ z, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(inout)}]{ wgrid, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ w\_\-soln}
\end{DoxyParamCaption}
)}}
\label{sgrid3d_8f90_a72497fe2d03542f2d79066f7e16b22a6}


Definition at line 1 of file sgrid3d.f90.

\hypertarget{sgrid3d_8f90_aac610cae63fd4729e3098a6253d0dfee}{
\index{sgrid3d.f90@{sgrid3d.f90}!contras@{contras}}
\index{contras@{contras}!sgrid3d.f90@{sgrid3d.f90}}
\subsubsection[{contras}]{\setlength{\rightskip}{0pt plus 5cm}subroutine contras (
\begin{DoxyParamCaption}
\item[{integer,intent(in)}]{ iwid, }
\item[{integer,intent(in)}]{ jwid, }
\item[{integer,intent(in)}]{ kwid, }
\item[{integer,intent(in)}]{ ncells, }
\item[{integer,dimension($\ast$),intent(in)}]{ ijkcell, }
\item[{real(double),dimension($\ast$),intent(in)}]{ x, }
\item[{real(double),dimension($\ast$),intent(in)}]{ y, }
\item[{real(double),dimension($\ast$),intent(in)}]{ z, }
\item[{real(double),dimension($\ast$),intent(out)}]{ tsix, }
\item[{real(double),dimension($\ast$),intent(out)}]{ tsiy, }
\item[{real(double),dimension($\ast$),intent(out)}]{ tsiz, }
\item[{real(double),dimension($\ast$),intent(out)}]{ etax, }
\item[{real(double),dimension($\ast$),intent(out)}]{ etay, }
\item[{real(double),dimension($\ast$),intent(out)}]{ etaz, }
\item[{real(double),dimension($\ast$),intent(out)}]{ nux, }
\item[{real(double),dimension($\ast$),intent(out)}]{ nuy, }
\item[{real(double),dimension($\ast$),intent(out)}]{ nuz}
\end{DoxyParamCaption}
)}}
\label{sgrid3d_8f90_aac610cae63fd4729e3098a6253d0dfee}


Definition at line 79 of file sgrid3d.f90.

\hypertarget{sgrid3d_8f90_aa8de6bbd7d082943b459674adae272ee}{
\index{sgrid3d.f90@{sgrid3d.f90}!gridsolv@{gridsolv}}
\index{gridsolv@{gridsolv}!sgrid3d.f90@{sgrid3d.f90}}
\subsubsection[{gridsolv}]{\setlength{\rightskip}{0pt plus 5cm}subroutine gridsolv (
\begin{DoxyParamCaption}
\item[{real(double),dimension($\ast$),intent(in)}]{ x, }
\item[{real(double),dimension($\ast$),intent(in)}]{ y, }
\item[{real(double),dimension($\ast$),intent(in)}]{ z, }
\item[{real(double),dimension($\ast$),intent(in)}]{ w, }
\item[{real(double),dimension($\ast$),intent(in)}]{ tsix, }
\item[{real(double),dimension($\ast$),intent(in)}]{ tsiy, }
\item[{real(double),dimension($\ast$),intent(in)}]{ tsiz, }
\item[{real(double),dimension($\ast$),intent(in)}]{ etax, }
\item[{real(double),dimension($\ast$),intent(in)}]{ etay, }
\item[{real(double),dimension($\ast$),intent(in)}]{ etaz, }
\item[{real(double),dimension($\ast$),intent(in)}]{ nux, }
\item[{real(double),dimension($\ast$),intent(in)}]{ nuy, }
\item[{real(double),dimension($\ast$),intent(in)}]{ nuz, }
\item[{integer,intent(in)}]{ iwid, }
\item[{integer,intent(in)}]{ jwid, }
\item[{integer,intent(in)}]{ kwid, }
\item[{integer,dimension($\ast$),intent(in)}]{ ijkcell, }
\item[{integer,intent(in)}]{ ncells, }
\item[{real(double),dimension($\ast$),intent(out)}]{ dx1, }
\item[{real(double),dimension($\ast$),intent(out)}]{ dx2, }
\item[{real(double),dimension($\ast$),intent(out)}]{ dx3}
\end{DoxyParamCaption}
)}}
\label{sgrid3d_8f90_aa8de6bbd7d082943b459674adae272ee}


Definition at line 176 of file sgrid3d.f90.

\hypertarget{sgrid3d_8f90_a8ebdeb2f9c494337fab4bb965117a627}{
\index{sgrid3d.f90@{sgrid3d.f90}!meshgen@{meshgen}}
\index{meshgen@{meshgen}!sgrid3d.f90@{sgrid3d.f90}}
\subsubsection[{meshgen}]{\setlength{\rightskip}{0pt plus 5cm}subroutine meshgen (
\begin{DoxyParamCaption}
\item[{integer}]{ nxp, }
\item[{integer}]{ nyp, }
\item[{integer}]{ nzp, }
\item[{real(double),dimension($\ast$)}]{ x, }
\item[{real(double),dimension($\ast$)}]{ y, }
\item[{real(double),dimension($\ast$)}]{ z, }
\item[{real(double),dimension($\ast$)}]{ w, }
\item[{real(double),dimension($\ast$)}]{ w\_\-soln, }
\item[{real(double),dimension($\ast$)}]{ vol, }
\item[{real(double)}]{ dt, }
\item[{real(double)}]{ taug, }
\item[{integer,intent(in)}]{ numit, }
\item[{real(double),dimension($\ast$)}]{ ax, }
\item[{real(double),dimension($\ast$)}]{ ay, }
\item[{real(double),dimension($\ast$)}]{ az, }
\item[{real(double),dimension($\ast$)}]{ bx, }
\item[{real(double),dimension($\ast$)}]{ by, }
\item[{real(double),dimension($\ast$)}]{ bz, }
\item[{real(double),dimension($\ast$)}]{ cx, }
\item[{real(double),dimension($\ast$)}]{ cy, }
\item[{real(double),dimension($\ast$)}]{ cz, }
\item[{real(double)}]{ lama, }
\item[{real(double)}]{ lamb, }
\item[{real(double)}]{ lamc, }
\item[{real(double),dimension($\ast$)}]{ dx1, }
\item[{real(double),dimension($\ast$)}]{ dx2, }
\item[{real(double),dimension($\ast$)}]{ dx3, }
\item[{real(double)}]{ delta, }
\item[{real(double)}]{ psi, }
\item[{real(double),dimension($\ast$)}]{ tsix, }
\item[{real(double),dimension($\ast$)}]{ tsiy, }
\item[{real(double),dimension($\ast$)}]{ tsiz, }
\item[{real(double),dimension($\ast$)}]{ etax, }
\item[{real(double),dimension($\ast$)}]{ etay, }
\item[{real(double),dimension($\ast$)}]{ etaz, }
\item[{real(double),dimension($\ast$)}]{ nux, }
\item[{real(double),dimension($\ast$)}]{ nuy, }
\item[{real(double),dimension($\ast$)}]{ nuz, }
\item[{real(double),dimension($\ast$),intent(out)}]{ divaa1, }
\item[{real(double),dimension($\ast$),intent(out)}]{ divbb2, }
\item[{real(double),dimension($\ast$),intent(out)}]{ divcc3, }
\item[{integer}]{ iwid, }
\item[{integer}]{ jwid, }
\item[{integer}]{ kwid, }
\item[{integer,dimension($\ast$)}]{ ijkcell, }
\item[{integer,dimension($\ast$)}]{ istep, }
\item[{integer,dimension($\ast$)}]{ iota, }
\item[{logical,intent(in)}]{ periodic, }
\item[{real(double)}]{ toroid, }
\item[{real(double)}]{ strait, }
\item[{real(double)}]{ rmaj, }
\item[{real(double)}]{ rwall, }
\item[{real(double)}]{ bzi, }
\item[{real(double)}]{ q0, }
\item[{real(double)}]{ cdlt, }
\item[{real(double)}]{ sdlt, }
\item[{real(double)}]{ dz}
\end{DoxyParamCaption}
)}}
\label{sgrid3d_8f90_a8ebdeb2f9c494337fab4bb965117a627}


Definition at line 361 of file sgrid3d.f90.

\hypertarget{sgrid3d_8f90_a9fd09de48fb71b74481b7f4e7815383e}{
\index{sgrid3d.f90@{sgrid3d.f90}!torusw@{torusw}}
\index{torusw@{torusw}!sgrid3d.f90@{sgrid3d.f90}}
\subsubsection[{torusw}]{\setlength{\rightskip}{0pt plus 5cm}subroutine torusw (
\begin{DoxyParamCaption}
\item[{integer,intent(in)}]{ nxp, }
\item[{integer,intent(in)}]{ nyp, }
\item[{integer}]{ nzp, }
\item[{integer,intent(in)}]{ i1, }
\item[{integer,intent(in)}]{ i2, }
\item[{integer,intent(in)}]{ j1, }
\item[{integer,intent(in)}]{ j2, }
\item[{integer,intent(in)}]{ k1, }
\item[{integer,intent(in)}]{ k2, }
\item[{real(double),intent(in)}]{ toroid, }
\item[{real(double),intent(in)}]{ strait, }
\item[{real(double),intent(in)}]{ rmaj, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ x, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ y, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(in)}]{ z, }
\item[{real(double),dimension(nxp,nyp,$\ast$),intent(out)}]{ wgrid}
\end{DoxyParamCaption}
)}}
\label{sgrid3d_8f90_a9fd09de48fb71b74481b7f4e7815383e}


Definition at line 514 of file sgrid3d.f90.

